x <- 1500:1
y <- rep(1500,times=1500)
z <- x/y
zz <- cumprod (z) 
min(which(zz<0.5))
